home *** CD-ROM | disk | FTP | other *** search
/ Univers Interactif 5 / Univers Mac Interactif - Issue 05.iso / mac / dirjapon / takemura / take.dir / 00011_Script_11 < prev    next >
Text File  |  1995-08-11  |  299b  |  19 lines
  1. on enterframe
  2.   global xsitu
  3.   if xsitu=1 then
  4.     set x=the castnum of sprite 10
  5.     set x=x+1
  6.     if x=8 then set x=1
  7.     set the castnum of sprite 10 to x
  8.     updatestage
  9.   end if
  10. end
  11.  
  12. on poirot x
  13.   set z=the timer
  14.   repeat while the timer<z+x
  15.     updatestage
  16.   end repeat
  17. end
  18.  
  19.